home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / LOGO / 3827.ZIP / LOGOLIB.ZIP / TOWERSET.LG < prev    next >
Encoding:
Text File  |  1990-06-12  |  255 b   |  9 lines
  1. to towerset :tn :value
  2. !
  3. ! Called by HANOI. Sets the current number of disks on tower :tn,
  4. ! as stored in the globals tower1, tower2, and tower3.
  5. !
  6. if :tn = 1 [make "tower1 :value] [if :tn = 2 [make "tower2 :value] \
  7.    [make "tower3 :value]]
  8. end
  9.